<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>16</cardCount>
<cardID>2865</cardID>
<listID>9346</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>---------------------------------------------------------------------------------- STACK: BungDabba XThangs-- VERSION:1.0, 30 August 1992-- ©Copyright 1992 BungDabba Productions, All Rights Reserved.---- DESCRIPTION:-- This stack is a free collection of XFCNs and XCMDs.---- HANDLERS USED IN THIS SCRIPT:-- openStack,closeStack,suspendStack,resumeStack,createXThangMenu,-- deleteXThangMenu---- FUNCTIONS USED IN THIS SCRIPT:-- lastItem,createXMenuItems,createXMenuMsgs---- GLOBALS USED IN THIS SCRIPT:-- <None>---- EXTERNALS USED IN THIS STACK:-- Not documented here—that's the purpose of this stack.---- LEGEND:-- "--∆" indicates strings which would need localization--------------------------------------------------------------------------------on openStackcreateXThangMenupass openStackend openStackon closeStackdeleteXThangMenupass closeStackend closeStackon suspendStackdeleteXThangMenupass suspendStackend suspendStackon resumeStackcreateXThangMenupass resumeStackend resumeStackfunction lastItem TheDelimiter,String-- given the delimiter <TheDelimiter>, return the portion of <String> that-- follows the LAST occurance of <TheDelimiter>if TheDelimiter is in Stringthen put lastItem(TheDelimiter,char offset(TheDelimiter,String) + 1 to length(String) of String) into Stringreturn Stringend lastItem------------------------------ Menu Handlers ----------------------------------on createXThangMenuif there is not a menu "XThangs" then --∆create menu "XThangs" --∆put createXMenuItems() into menu "XThangs" with menuMsg createXMenuMsgs()end ifend createXThangMenuon deleteXThangMenuif there is a menu "XThangs" then delete menu "XThangs"end deleteXThangMenufunction createXMenuItemsreturn "About This Stack,Conventions,-,checkDebugger(),compareLines()," ¬& "fileDataSize(),findHandlers(),findTypes(),hitRegion(),PICTtoRsrc," ¬& "putWithStyle,sameCardPicts(),selectedPrinter(),sysDebuggerBreak," ¬& "-,Stack Disclaimer" --∆end createXMenuItemsfunction createXMenuMsgsput createXMenuItems() into TheMenuItemsput empty into TheMenuMsgsrepeat with ndx = 1 to the number of items in TheMenuItemsput "go to cd" && quote & item ndx of TheMenuItems & ¬quote & "," after TheMenuMsgsend repeatdelete last char of TheMenuMsgs -- remove trailing commareturn TheMenuMsgsend createXMenuMsgs---------------------------- End Menu Handlers ----------------------------- ScriptEdit™ Prefs:Monaco,9,40,2,866,636,139,139,50</script>
